home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 100 / SGDS 100.2mg / SDGS.100 / SDB100 / B / CALWIZ (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-12-12  |  741 b   |  21 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10 FI$ = "DO.CAL.SYSTEM"
  2. 20 T$ = "": ON   NOT  PEEK(640) GOTO 40: FOR T = 641 TO 641 + PEEK(640) -1:T$ = T$ + CHR$( PEEK(T)): NEXT 
  3. 30  IF  RIGHT$(T$,1) < >"/"  THEN T$ =  MID$ (T$,1, LEN(T$) -1): IF T$ < >""  THEN 30
  4. 32 TT =  PEEK(49048): GOSUB 120: IF  MID$ (TT$,7,1) = "0"  THEN : TEXT : HOME : VTAB 11: PRINT "80 COLUMN CARD NOT FOUND.": GOTO 100
  5. 35  IF  PEEK(64435) = 6  THEN  IF  PEEK(64448) = 234  THEN  IF  PEEK(64447) = 193  THEN  TEXT : HOME : VTAB 11: PRINT "THIS PROGRAM REQUIRES ENHANCED ROMS.": GOTO 100
  6. 40  ONERR  GOTO 90
  7. 50  ON T$ < >"" GOTO 60: PRINT  CHR$(4)"prefix": INPUT T$
  8. 60  PRINT  CHR$(4)"prefix"T$
  9. 70  PRINT  CHR$(4)"-"FI$
  10. 80  TEXT : HOME : VTAB 11
  11. 90  PRINT "UNABLE TO SET PREFIX AND"
  12. 100  PRINT "UNABLE TO RUN "FI$:
  13. 102  VTAB 22: HTAB 10: PRINT "PRESS ANY KEY TO CONINUE ";: GET YY$
  14. 104  PRINT  CHR$(4)"BYE"
  15. 110  REM <CTRL-0x0d><CTRL-0x0d>**********************<CTRL-0x0d>NAME:BYTE TO BITS<CTRL-0x0d>PASS:TT=BYTE TO CONVERT<CTRL-0x0d>USES:TT$,TT,T1<CTRL-0x0d>RTNS:TT$=BIT 76543210<CTRL-0x0d>**********************<CTRL-0x0d>
  16. 120 TT$ = ""
  17. 130  FOR T1 = 7 TO 0  STEP  -1
  18. 140 TT$ = TT$ + STR$(TT > = 2 ^T1)
  19. 150  IF TT > = 2 ^T1  THEN TT = TT -2 ^T1
  20. 160  NEXT T1
  21. 170  RETURN